home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TMagicMacros Delphi / TMM2_D4T / SIMPLEED.DFM / SIMPLEED.txt
Encoding:
Text File  |  1998-10-15  |  6.6 KB  |  222 lines

  1. object SimpleEditForm: TSimpleEditForm
  2.   Tag = 1000
  3.   Left = 101
  4.   Top = 157
  5.   Width = 554
  6.   Height = 420
  7.   Caption = 'SimpleEdit: Example project for TMagicMacros 2.0'
  8.   Font.Color = clWindowText
  9.   Font.Height = -13
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = MainMenu1
  13.   PixelsPerInch = 120
  14.   TextHeight = 16
  15.   object Panel1: TPanel
  16.     Tag = 1001
  17.     Left = 0
  18.     Top = 0
  19.     Width = 546
  20.     Height = 41
  21.     Align = alTop
  22.     TabOrder = 0
  23.     OnDblClick = Panel1DblClick
  24.     object btnItalic: TSpeedButton
  25.       Tag = 1002
  26.       Left = 6
  27.       Top = 8
  28.       Width = 28
  29.       Height = 25
  30.       Glyph.Data = {
  31.         76010000424D7601000000000000760000002800000020000000100000000100
  32.         04000000000000010000130B0000130B00000000000000000000000000000000
  33.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  34.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  35.         3333333333333333333333333333333333333FF3FFFF3FFF33FF003000030003
  36.         300077377773777F377703330033370337037FFF77F3377FF77F700007333300
  37.         0003777777333377777F303003333330370337F77F333337377F303073333333
  38.         070337F77F333333777F3700733333333003377773333333377F330033333333
  39.         30033377F3333333377F33073333333333033377333333333373333333333333
  40.         33333333FF3333333FF3333973333333793333377FF3333377F3333999333339
  41.         993333377733333777F33339933333339933333773FF333377F3333939733379
  42.         39333337377FFF77373333333399999333333333337777733333}
  43.       NumGlyphs = 2
  44.       OnClick = btnItalicClick
  45.     end
  46.     object btnBold: TSpeedButton
  47.       Tag = 1003
  48.       Left = 35
  49.       Top = 8
  50.       Width = 28
  51.       Height = 25
  52.       Glyph.Data = {
  53.         76010000424D7601000000000000760000002800000020000000100000000100
  54.         04000000000000010000130B0000130B00000000000000000000000000000000
  55.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  56.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  57.         3333333333333333333333333333333333333FF3FFFFFFF3FFFF003000000030
  58.         0000773777777737777703330030033300037FFF77F77FFF7773700007330000
  59.         003377777733777777F3303003330030003337F77F3377F77733303073333030
  60.         033337F77F3337F77F3337007333300003333777733337777333330033333000
  61.         33333377F3333777F33333073333330033333377333333773333333333333333
  62.         33333333FF333333FF33333973333337933333377FF333377F33333999333399
  63.         93333337773333777F333339933333399333333773FF33377F33333939733793
  64.         93333337377FF773733333333399993333333333337777333333}
  65.       NumGlyphs = 2
  66.       OnClick = btnBoldClick
  67.     end
  68.     object btnFont: TSpeedButton
  69.       Tag = 1004
  70.       Left = 63
  71.       Top = 8
  72.       Width = 28
  73.       Height = 25
  74.       Glyph.Data = {
  75.         76010000424D7601000000000000760000002800000020000000100000000100
  76.         04000000000000010000130B0000130B00000000000000000000000000000000
  77.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  78.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  79.         3333333333333333333333333333333333333333FFF33FFFFF33333300033000
  80.         00333337773377777333333330333300033333337FF33777F333333330733300
  81.         0333333377FFF777F33333333700000073333333777777773333333333033000
  82.         3333333337FF777F333333333307300033333333377F777F3333333333703007
  83.         33333333377F7773333333333330000333333333337777F33333333333300003
  84.         33333333337777F3333333333337007333333333337777333333333333330033
  85.         3333333333377333333333333333033333333333333733333333333333333333
  86.         3333333333333333333333333333333333333333333333333333}
  87.       NumGlyphs = 2
  88.       OnClick = btnFontClick
  89.     end
  90.   end
  91.   object RichEdit1: TRichEdit
  92.     Tag = 1009
  93.     Left = 0
  94.     Top = 41
  95.     Width = 546
  96.     Height = 310
  97.     Align = alClient
  98.     ScrollBars = ssVertical
  99.     TabOrder = 1
  100.   end
  101.   object StatusBar1: TStatusBar
  102.     Left = 0
  103.     Top = 351
  104.     Width = 546
  105.     Height = 19
  106.     Panels = <>
  107.     SimplePanel = True
  108.   end
  109.   object MagicMacros1: TMagicMacros
  110.     Tag = 1010
  111.     VHFilename = 'c:\sources\SimpleEdit.vhf'
  112.     LockCursor = False
  113.     BeforePlay = MagicMacros1BeforePlay
  114.     OnPlayEnded = MagicMacros1PlayEnded
  115.     OnPlayCancelled = MagicMacros1PlayCancelled
  116.     BeforeVisualHelp = MagicMacros1BeforeVisualHelp
  117.     OnVisualHelp = MagicMacros1VisualHelp
  118.     OnVisualHelpEnded = MagicMacros1VisualHelpEnded
  119.     OnVisualHelpCancelled = MagicMacros1VisualHelpCancelled
  120.     OnProgress = MagicMacros1Progress
  121.     Left = 48
  122.     Top = 112
  123.   end
  124.   object FontDialog1: TFontDialog
  125.     Tag = 1011
  126.     Font.Color = clWindowText
  127.     Font.Height = -13
  128.     Font.Name = 'MS Sans Serif'
  129.     Font.Style = []
  130.     MinFontSize = 0
  131.     MaxFontSize = 0
  132.     Left = 160
  133.     Top = 96
  134.   end
  135.   object MainMenu1: TMainMenu
  136.     Tag = 1012
  137.     Left = 248
  138.     Top = 152
  139.     object File1: TMenuItem
  140.       Tag = 1013
  141.       Caption = '&File'
  142.       ShortCut = 0
  143.       object Exit1: TMenuItem
  144.         Tag = 1014
  145.         Caption = 'E&xit'
  146.         ShortCut = 16472
  147.         OnClick = Exit1Click
  148.       end
  149.     end
  150.     object Options1: TMenuItem
  151.       Tag = 1015
  152.       Caption = '&Options'
  153.       ShortCut = 0
  154.       object Italic1: TMenuItem
  155.         Tag = 1016
  156.         Caption = '&Italic'
  157.         ShortCut = 16457
  158.         OnClick = btnItalicClick
  159.       end
  160.       object Bold1: TMenuItem
  161.         Tag = 1017
  162.         Caption = '&Bold'
  163.         ShortCut = 16450
  164.         OnClick = btnBoldClick
  165.       end
  166.       object N1: TMenuItem
  167.         Tag = 1018
  168.         Caption = '-'
  169.         ShortCut = 0
  170.       end
  171.       object Font1: TMenuItem
  172.         Tag = 1019
  173.         Caption = 'Fo&nt'
  174.         ShortCut = 16462
  175.         OnClick = btnFontClick
  176.       end
  177.     end
  178.     object Help1: TMenuItem
  179.       Tag = 1020
  180.       Caption = '&Help'
  181.       ShortCut = 0
  182.       object TMenuItem
  183.         ShortCut = 0
  184.       end
  185.       object Index1: TMenuItem
  186.         Tag = 1021
  187.         Caption = '&Index'
  188.         ShortCut = 112
  189.         OnClick = Index1Click
  190.       end
  191.       object Tourguide1: TMenuItem
  192.         Caption = '&Tourguide'
  193.         ShortCut = 0
  194.         OnClick = Tourguide1Click
  195.       end
  196.       object N2: TMenuItem
  197.         Caption = '-'
  198.         ShortCut = 0
  199.       end
  200.       object HowcanI1: TMenuItem
  201.         Caption = 'How &can I...'
  202.         ShortCut = 0
  203.         object Maketextbold1: TMenuItem
  204.           Caption = 'Make text &bold'
  205.           ShortCut = 49218
  206.           OnClick = Maketextbold1Click
  207.         end
  208.         object Maketextitalic1: TMenuItem
  209.           Caption = 'Make text &italic'
  210.           ShortCut = 49225
  211.           OnClick = Maketextitalic1Click
  212.         end
  213.         object Changethefont1: TMenuItem
  214.           Caption = 'Change the fo&nt'
  215.           ShortCut = 49230
  216.           OnClick = Changethefont1Click
  217.         end
  218.       end
  219.     end
  220.   end
  221. end
  222.